PC Accelerator 10/HOMEWRLD.bin/BEHAV.CXT/00017_Script_Send ScrollTop Update

Text File | 1999-03-23 | 508b | 28 lines

property whatScrollTop

global gTextSprite

on beginSprite me
  set gTextSprite = 5
end


on mouseUp me
  set the scrollTop of member (the member of sprite  gTextSprite) to whatScrollTop
  sendSprite(gTextSprite,#blendUp, 25)
end


on getPropertyDescriptionList

  set default = the member of sprite the currentspritenum




  set p_list = [ ¼
                #whatScrollTop: [ #comment:   "ScrollTop of Text:",#format: #integer, #default:   0 ]]
  return p_list

end